home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Misc.
/
Class Administrator
/
SetUpStack
/
background_4666.txt
< prev
next >
Wrap
Text File
|
1990-07-06
|
5KB
|
235 lines
-- background: 4666 from stack: in
-- bmap block id: 4975
-- flags: 0000
-- background id: 0
-- name:
-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=108 right=129 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name
-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=139 right=160 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone Number
-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=148 top=171 right=192 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GradeToDate
----- HyperTalk script -----
On mouseUp
push this card
put char 1 of word 1 of field "Name" into temp
put temp & word 2 of field "Name" & "Grades" into cardname
visual effect iris open
go to card cardname
get loc of bkgnd field "Points"
click at it
put bkgnd field "Points" into points
pop card
if points < line 3 of card field "D" then
put "F" into field "GradeToDate"
exit mouseUp
end if
if points < line 2 of card field "D" then
put "D-" into field "GradeToDate"
exit mouseUp
end if
if points < line 1 of card field "D" then
put "D" into field "GradeToDate"
exit mouseUp
end if
if points < line 3 of card field "C" then
put "D+" into field "GradeToDate"
exit mouseUp
end if
if points < line 2 of card field "C" then
put "C-" into field "GradeToDate"
exit mouseUp
end if
if points < line 1 of card field "C" then
put "C" into field "GradeToDate"
exit mouseUp
end if
if points < line 3 of card field "B" then
put "C+" into field "GradeToDate"
exit mouseUp
end if
if points < line 2 of card field "B" then
put "B-" into field "GradeToDate"
exit mouseUp
end if
if points < line 1 of card field "B" then
put "B" into field "GradeToDate"
exit mouseUp
end if
if points < line 3 of card field "A" then
put "B+" into field "GradeToDate"
exit mouseUp
end if
if points < line 2 of card field "A" then
put "A-" into field "GradeToDate"
exit mouseUp
end if
if points < line 1 of card field "A" then
put "A" into field "GradeToDate"
exit mouseUp
end if
if points >= line 1 of card field "A" then put "A+" into field "GradeToDate"
End MouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=138 top=0 right=22 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
go previous
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=257 top=0 right=23 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
go next
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=347 top=105 right=155 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grades
----- HyperTalk script -----
on mouseUp
put char 1 of word 1 of field "Name" into temp
put temp & word 2 of field "Name" & "Grades" into cardname
visual effect iris open
go to card cardname
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=161 right=201 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
Dial line 1 of field "Phone Number" with modem
end mouseUp
-- part 11 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=119 top=202 right=291 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 12 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=368 top=52 right=98 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance
----- HyperTalk script -----
on mouseUp
put char 1 of word 1 of field "Name" into temp
put temp & word 2 of field "Name" & "Attendance" into cardname
go to card cardname
end mouseUp